Для настройки цвета фона формы и расположенных в форме элементов можно использовать диалоговое окно настройки цветовой палитры .
Для вызова этого диалогового окна необходимо заменить код в событии click кнопки cbcontrol приложения MySmallProject на следующий:
Private Sub cbControl_Click()
cdlMyDialog.ShowColor
End Sub
Расширенное диалоговое окно настройки цветовой палитры можно создать с помощью объекта CommonDialog.

Значения для метода Flags диалогового окна цветовой палитры
| cdlCCFullOpen | &H2 | Помещает в диалоговое окно дополнительную кнопку "Добавить в набор" и цветовое поле с маркером и линейкой назначения оттенка для добавления цветов в поля "Дополнительные цвета" диалогового окна цветовой палитры | cdlCCShowHelp | &H8 | Добавляет в диалоговое окно кнопку "Справка" | cdlCCPreventFullOpen | &H4 | Скрывает кнопку "Добавить в набор" | cdlCCRGBInit | &H1 | Восстанавливает в диалоговом окне исходный набор цветов |
Функции цвета
Функция RGB возвращает числовое представление цвета (тип возвращаемого значения при этом long) в соответствии с интенсивностью трех цветовых составляющих:
R (Red— красный),
G (Green — зеленый)
В (Blue — синий).
Интенсивность этих трех основных цветов задается шкалой чисел от О до 255. Синтаксис этой функции такой:
RGB (Red, Green, Blue)
где:
Red — интенсивность красного цвета от 0 до 255;
Green — интенсивность зеленого цвета от 0 до 255;
Blue — интенсивность синего цвета от 0 до 255.
Для примера в табл. 11.2 показаны часто используемые цвета, разложенные по интенсивностям RGB-цветов.
Цвета в RGB-представлении
Цвет | Интенсивность красного | Интенсивность зеленого | Интенсивность синего | Черный | 0 | 0 | 0 | Белый | 255 | 255 | 255 | Красный | 255 | 0 | 0 | Зеленый | 0 | 255 | 0 | Синий | 0 | 0 | 255 | Пурпурный | 255 | 0 | 255 | Желтый | 255 | 255 | 0 | Серый | 192 | 192 | 192 |
Чтобы сделать фон формы например синим, необходимо установить в свойстве BackColor формы следующее значение: Form.BackColor = RGB (0,0,255) Функция QBColor предназначена для облегчения работы о стандартными цветами, возвращающая числовое представление одного из цветов, показанных в таблице.
Цвета, возвращаемые функцией QBColor
Номер цвета | Цвет | 0 | Черный | 1 | Синий | 2 | Зеленый | 3 | Бирюзовый | 4 | Красный | 5 | Пурпурный | 6 | Желтый | 7 | Белый | 8 | Серый | 9 | Светло-синий (голубой) | 10 | Светло-зеленый (салатный) | 11 | Светло-бирюзовый | 12 | Светло-красный (алый) | 13 | Светло-пурпурный | 14 | Светло-желтый | 15 | Ярко-белый |
Синтаксис этой функции:
QBColor (NumberColor)
где NumberColor — числовое значение (номер цвета).
Чтобы установить для формы к примеру синий цвет фона надо написать следующий код:
Form.BackColor = QBColor(1)
Управление цветом
Цвет формы и элементов управления устанавливаются свойствами ForeColor и BackColor. Свойство ForeCoior задает цвет текста, а BackColor устанавливает цвет фона.
Во время разработки приложения эти свойства можно установить в окне Properties (Свойства) объекта, вызвав диалоговое окно настройки цвета.
Для этого необходимо выделить свойство и нажать на кнопку со стрелкой в правом столбце свойства. Как видно из рисунка, это диалоговое окно состоит из двух вкладок: Palette (Палитра) и System (Системные).
На вкладке Palette можно установить произвольные цвета из палитры, на вкладке System можно выбрать цвет из списка цветовой схемы Windows, которая устанавливается в панели управления Windows вызовом окна настройки Свойства: Display. При использовании цветовой схемы необходимо иметь в виду, что при изменении настройки цветовой схемы Windows соответственно изменятся и цвета приложения.
В режиме выполнения приложения свойства ForeColor и BackColor можно установить простым присвоением, используя функции цвета или встроенные константы Visual Basic
Набор констант Visual Basic 6 для управления цветом
Константа | Значение | Описание цвета |
vbBlack | &HO | Черный |
vbRed | &HFF | Красный |
vbGreen | &HFFOO | Зеленый |
vbYellow | &HFFFF | Желтый |
vbBlue | &HFFOOOO | Голубой |
vbMagenta | &HFFOOFF | Пурпурный |
vbCyan | &HFFFFOO | Бирюзовый |
vbWhite | &HFFFFFF | Белый |